restore

(^F)show

/|______Helvetica dup RF findfont 8 ys div scalefont setfont

left botx xs div add bottom wdist 1.5 mul 1 sub ys div sub moveto

clpr storerect

save

% color separation names